Chip 1998 September/CHIP Eylül 1998.iso/demolar/lokman/DISK1/_SETUP.3/Group1/istatist.exe/0/RCDATA/TFORMHSTGRF/TFORMHSTGRF.txt

Text File | 1998-07-13 | 44KB | 1,616 lines

object FormHstGrf: TFormHstGrf
  Left = 0
  Top = 1
  Width = 642
  Height = 454
  HorzScrollBar.Range = 1200
  VertScrollBar.Range = 2000
  AutoScroll = False
  Caption = 'Hasta Re�etelerine �li�kin Bilgiler ve Grafikleri'
  Color = clSilver
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = [fsBold]
  Scaled = False
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object LabelTAR: TLabel
    Left = -1
    Top = -1
    Width = 66
    Height = 14
    Caption = 'Tarih Aral���'
  end
  object RadioGrSIR: TRadioGroup
    Left = 127
    Top = -1
    Width = 383
    Height = 37
    Caption = 'Hasta S�ralama Kriteri: En B�y�k'
    Columns = 2
    ItemIndex = 0
    Items.Strings = (
      'Miktarda �la� Alandan �tibaren'
      'Tutarda �la� Alandan �tibaren')
    TabOrder = 1
  end
  object BtnAC: TBitBtn
    Left = 539
    Top = 8
    Width = 72
    Height = 25
    Caption = '&Tabloyu A�'
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    OnClick = BtnACClick
  end
  object MaskEditSON: TMaskEdit
    Left = 62
    Top = 12
    Width = 63
    Height = 22
    AutoSelect = False
    EditMask = '99/99/9999;1;_'
    MaxLength = 10
    TabOrder = 3
    Text = '01.01.1998'
    OnExit = MaskEditBASExit
  end
  object MaskEditBAS: TMaskEdit
    Left = 0
    Top = 12
    Width = 61
    Height = 22
    AutoSelect = False
    EditMask = '99/99/9999;1;_'
    MaxLength = 10
    TabOrder = 4
    Text = '01.01.1997'
    OnExit = MaskEditBASExit
  end
  object PanelGRAF: TPanel
    Left = -2
    Top = 415
    Width = 699
    Height = 844
    BevelInner = bvLowered
    BorderWidth = 3
    Color = clNavy
    TabOrder = 0
    object ScrollBox1: TScrollBox
      Left = 5
      Top = 5
      Width = 689
      Height = 834
      Align = alClient
      Color = clGray
      ParentColor = False
      TabOrder = 0
      object Label2: TLabel
        Left = 568
        Top = 197
        Width = 63
        Height = 70
        Caption = 'Grafik Bilgisinin Yaz�laca�� Dosyan�n�n .Txt Ad�'
        Font.Color = clWhite
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
        WordWrap = True
      end
      object Chart1: TChartFX
        Left = 0
        Top = -1
        Width = 568
        Height = 409
        TabOrder = 0
        ControlData = {
          B43A0000452A00006000000001000102FDB303FFFFFFFF380032002800280002
          00000000000000080001000000000000000000000000000000000000FFFF00C0
          C0C000C0C0C000FFFFFF00FF1FFF1F0000000000010000000000000F001E0000
          00FFFFFF000000FF00FF000000FF00FF00FFFF000000FFFF00FF00800000FF80
          0080FF00008000FF00FFFF800080FFFF00808040008040800040808000FFFF00
          00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF
          00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0008000020080000
          6008000000080000000800000008000000080000000800000008000000000000
          00000000000000000000000000000000000000000000000000000000004C0000
          00000054008A10000080685B00AC2A02068464370200006500289C5502B02159
          00687433021C043002F0D4E401000000000000000024AAB7050000000078D4BF
          05CC6FF10400000000A0215A0030000000000054000000000000000000D4FC63
          006E7374732E706173EC41EE0272642E7090CF230218FC10027C621E02247E27
          0228000000000054008A100000C08C5700ECEE58006E00610067006500E85220
          0201000004DC625802C00F58002C000000000054009A10000074425900000000
          00000000008484570034914202E4B0590008B4A5047070CB048C225A00000000
          000000F03F000000000000F03F02000400000000000000000000000000000024
          4000000000000000000000000000000000000000007300000000000000000000
          109F0402}
      end
      object BtnYUK: TBitBtn
        Left = 571
        Top = 29
        Width = 41
        Height = 45
        Caption = 'Y&ukar�'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = BtnYUKClick
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003C3333339333
          337437FFF3337F3333F73CCC33339333344437773F337F33377733CCC3339337
          4447337F73FF7F3F337F33CCCCC3934444433373F7737F773373333CCCCC9444
          44733337F337773337F3333CCCCC9444443333373F337F3337333333CCCC9444
          473333337F337F337F333333CCCC94444333333373F37F33733333333CCC9444
          7333333337F37F37F33333333CCC944433333333373F7F373333333333CC9447
          33333333337F7F7F3333333333CC94433333333333737F7333333333333C9473
          33333333333737F333333333333C943333333333333737333333333333339733
          3333333333337F333333333333339333333333333333733333330000}
        Layout = blGlyphTop
        NumGlyphs = 2
      end
      object BtnYAZ: TBitBtn
        Left = 571
        Top = 140
        Width = 41
        Height = 45
        Caption = '&Yaz�c�'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        OnClick = BtnYAZClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
          00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
          8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
          8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
          8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
          03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
          03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
          33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
          33333337FFFF7733333333300000033333333337777773333333}
        Layout = blGlyphBottom
        NumGlyphs = 2
      end
      object BtnASAGI: TBitBtn
        Left = 571
        Top = 85
        Width = 41
        Height = 45
        Caption = '&A�a��'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        OnClick = BtnASAGIClick
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333393333
          333333333337F3333333333333397333333333333337FF333333333333C94333
          3333333333737F333333333333C9473333333333337373F3333333333CC94433
          3333333337F7F7F3333333333CC94473333333333737F73F33333333CCC94443
          333333337F37F37F33333333CCC94447333333337337F373F333333CCCC94444
          33333337F337F337F333333CCCC94444733333373337F3373F3333CCCCC94444
          4333337F3337FF337F3333CCCCC94444473333733F7773FF73F33CCCCC393444
          443337F37737F773F7F33CCC33393374447337F73337F33737FFCCC333393333
          444377733337F333777FC33333393333374373333337333333730000}
        Layout = blGlyphBottom
        NumGlyphs = 2
      end
      object ChartMik: TChartFX
        Left = 0
        Top = 410
        Width = 568
        Height = 409
        TabOrder = 4
        ControlData = {
          B43A0000452A00006000000001000102FDB303FFFFFFFF380032002800280002
          00000000000000080001000000000000000000000000000000000000FFFF00C0
          C0C000C0C0C000FFFFFF00FF1FFF1F0000000000010000000000000F001E0000
          00FFFFFF000000FF00FF000000FF00FF00FFFF000000FFFF00FF00800000FF80
          0080FF00008000FF00FFFF800080FFFF00808040008040800040808000FFFF00
          00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF
          00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0008000020080000
          6008000000080000000800000008000000080000000800000008000000000000
          0000000000000000000000000000000000000000000000000000000000300000
          00000054008A10000080685B00AC2A02060000000000000000C0125800247E24
          0248185B008C835700F0D4E40174125800440000000000540000000000000000
          00D4FC63006E7374732E706173EC41EE0210FE370248185B000000000000185B
          00A0065A0002380093000061618C4E2F020000000008AAB70528000000000054
          008A100000C08C5700843D5A009C125800F48C57009C984F021C085800000000
          00FC8CD10424000000000054009A1000007442590074572D0200000000000000
          007CE650023C81FF013CEB5800000000000000F03F000000000000F03F020004
          0000000000000000000000000000002440000000000000000000000000000000
          0000000000000000}
      end
      object BtnTXT: TBitBtn
        Left = 571
        Top = 297
        Width = 41
        Height = 45
        Caption = '.txt Ya&z'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 5
        OnClick = BtnTXTClick
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          33333FFFFFFFFFFFFFFF000000000000000077777777777777770FFFFFFFFFFF
          FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
          FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
          FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
          FFF07F3FF3FF3FF3FFF70F00F00F00F000F07F773773773777370FFFFFFFFFFF
          FFF07FFFFFFFFFFFFFF70CCCCCCCCCCCCCC07777777777777777088CCCCCCCCC
          C8807FF7777777777FF700000000000000007777777777777777333333333333
          33333333333333333333333333333333333333333333333333330000}
        Layout = blGlyphBottom
        NumGlyphs = 2
      end
      object EditFile: TEdit
        Left = 568
        Top = 268
        Width = 73
        Height = 22
        TabOrder = 6
        Text = 'istHast.txt'
      end
      object BitBtn1: TBitBtn
        Left = 570
        Top = 461
        Width = 41
        Height = 45
        Caption = 'Yukar&�'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        TabOrder = 7
        OnClick = BitBtn1Click
        Glyph.Data = {
          78010000424D7801000000000000760000002800000020000000100000000100
          04000000000000000000120B0000120B00000000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003C3333339333
          337437FFF3337F3333F73CCC33339333344437773F337F33377733CCC3339337
          4447337F73FF7F3F337F33CCCCC3934444433373F7737F773373333CCCCC9444
          44733337F337773337F3333CCCCC9444443333373F337F3337333333CCCC9444
          473333337F337F337F333333CCCC94444333333373F37F33733333333CCC9444
          7333333337F37F37F33333333CCC944433333333373F7F373333333333CC9447
          33333333337F7F7F3333333333CC94433333333333737F7333333333333C9473
          33333333333737F333333333333C943333333333333737333333333333339733
          3333333333337F333333333333339333333333333333733333330000}
        Layout = blGlyphTop
        NumGlyphs = 2
      end
    end
  end
  object Panel1: TPanel
    Left = 8
    Top = 1296
    Width = 761
    Height = 373
    BevelInner = bvLowered
    BorderWidth = 4
    Caption = 'Panel1'
    Color = 8454143
    TabOrder = 5
    object QRBand1: TQRBand
      Left = 6
      Top = 6
      Width = 749
      Height = 35
      Align = alTop
      BandType = rbTitle
      Color = clWhite
      ForceNewPage = False
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Ruler = qrrCmHV
      object QRLabelBaslik: TQRLabel
        Left = 224
        Top = 14
        Width = 83
        Height = 15
        Alignment = taCenter
        Caption = 'QRLabelBaslik'
        AlignToBand = True
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object QRSysData2: TQRSysData
        Left = 601
        Top = 0
        Width = 89
        Height = 17
        AlignToBand = False
        Data = qrsPageNumber
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
        Text = 'Sayfa '
      end
    end
    object QRBand2: TQRBand
      Left = 6
      Top = 41
      Width = 749
      Height = 42
      Align = alTop
      BandType = rbDetail
      Color = clWhite
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ForceNewPage = False
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      ParentFont = False
      Ruler = qrrCmH
      object QRShape1: TQRShape
        Left = -54
        Top = 2
        width = 741
        Height = 37
        Shape = qrsRectangle
      end
      object QRShape5: TQRShape
        Left = 331
        Top = 2
        width = 70
        Height = 37
        Shape = qrsRectangle
      end
      object QRShape3: TQRShape
        Left = 39
        Top = 2
        width = 212
        Height = 37
        Shape = qrsRectangle
      end
      object QRDBText1: TQRDBText
        Left = 4
        Top = 21
        Width = 32
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSource1
        DataField = 'SNO'
      end
      object QRDBText3: TQRDBText
        Left = 267
        Top = 21
        Width = 48
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSource1
        DataField = 'FARKILAC'
      end
      object QRDBText5: TQRDBText
        Left = 339
        Top = 21
        Width = 38
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSource1
        DataField = 'TOPMIK'
      end
      object QRLabel3: TQRLabel
        Left = 11
        Top = 3
        Width = 24
        Height = 14
        Caption = 'S.No'
        AlignToBand = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object QRLabel2: TQRLabel
        Left = 44
        Top = 3
        Width = 51
        Height = 14
        Caption = 'Hasta Ad�'
        AlignToBand = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object QRLabel4: TQRLabel
        Left = 254
        Top = 3
        Width = 71
        Height = 14
        Caption = 'F.l� �la� Say�s�'
        AlignToBand = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object QRLabel6: TQRLabel
        Left = 337
        Top = 3
        Width = 58
        Height = 14
        Caption = 'T.Kutu Mik'
        AlignToBand = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object QRLabel7: TQRLabel
        Left = 407
        Top = 3
        Width = 65
        Height = 14
        Caption = 'T.Br�t Tutar'
        AlignToBand = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object QRDBText2: TQRDBText
        Left = 44
        Top = 21
        Width = 203
        Height = 17
        AlignToBand = False
        DataSource = DataSource1
        DataField = 'HASTANO'
      end
      object QRShape2: TQRShape
        Left = 3
        Top = 19
        width = 739
        Height = 4
        Shape = qrsHorLine
      end
      object QRShape7: TQRShape
        Left = 683
        Top = 2
        width = 4
        Height = 35
        Shape = qrsVertLine
      end
      object QRLabel1: TQRLabel
        Left = 527
        Top = 3
        Width = 55
        Height = 14
        Caption = 'Re�.Adedi'
        AlignToBand = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object QRDBText22: TQRDBText
        Left = 530
        Top = 20
        Width = 45
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSource1
        DataField = 'RECSAY'
      end
      object QRDBText4: TQRDBText
        Left = 410
        Top = 21
        Width = 93
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSource1
        DataField = 'RECSAY'
      end
    end
    object QRGroupHeader: TQRBand
      Left = 6
      Top = 83
      Width = 749
      Height = 16
      Align = alTop
      BandType = rbGroupHeader
      Color = clWhite
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ForceNewPage = False
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      ParentFont = False
      Ruler = qrrCmHV
      object QRLabel9: TQRLabel
        Left = 126
        Top = 2
        Width = 39
        Height = 14
        Caption = '�la� Ad�'
        AlignToBand = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object QRLabel10: TQRLabel
        Left = 340
        Top = 2
        Width = 51
        Height = 14
        Caption = 'Kutu Mik.'
        AlignToBand = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object QRLabel11: TQRLabel
        Left = 428
        Top = 2
        Width = 58
        Height = 14
        Caption = 'Br�t Tutar�'
        AlignToBand = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object QRLabel12: TQRLabel
        Left = 86
        Top = 2
        Width = 24
        Height = 14
        Caption = 'S.No'
        AlignToBand = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object QRLabel13: TQRLabel
        Left = 520
        Top = 2
        Width = 68
        Height = 14
        Caption = 'Ort.Kutu Mik'
        AlignToBand = False
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = [fsBold]
        ParentFont = False
      end
    end
    object QRSubDetail: TQRBand
      Left = 6
      Top = 99
      Width = 749
      Height = 17
      Align = alTop
      BandType = rbSubDetail
      Color = clWhite
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ForceNewPage = False
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      ParentFont = False
      Ruler = qrrCmH
      object QRSysData1: TQRSysData
        Left = 416
        Top = 1
        Width = 65
        Height = 17
        AlignToBand = False
        Data = qrsDateTime
        Text = 'D�k�m Tarihi :'
      end
      object QRDBText8: TQRDBText
        Left = 119
        Top = 1
        Width = 220
        Height = 17
        AlignToBand = False
        DataSource = DataSource2
        DataField = 'ILACNO'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object QRDBText9: TQRDBText
        Left = 348
        Top = 1
        Width = 39
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSource2
        DataField = 'TOPMIK'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object QRDBText10: TQRDBText
        Left = 400
        Top = 1
        Width = 94
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSource2
        DataField = 'TUTAR'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object QRDBText11: TQRDBText
        Left = 79
        Top = 1
        Width = 33
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSource2
        DataField = 'SNO'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object QRDBText12: TQRDBText
        Left = 560
        Top = 1
        Width = 65
        Height = 17
        AlignToBand = False
        DataSource = DataSource2
        DataField = 'ORTMIK'
      end
    end
    object QRGroupFooter: TQRBand
      Left = 6
      Top = 116
      Width = 749
      Height = 17
      Align = alTop
      BandType = rbGroupFooter
      Color = clWhite
      ForceNewPage = False
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Ruler = qrrNone
    end
    object QRBand3: TQRBand
      Left = 6
      Top = 133
      Width = 749
      Height = 231
      Align = alTop
      BandType = rbSummary
      Color = clWhite
      ForceNewPage = False
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Ruler = qrrNone
      object QRShape6: TQRShape
        Left = 144
        Top = 16
        width = 325
        Height = 123
        Shape = qrsRectangle
      end
      object QRLabel14: TQRLabel
        Left = 176
        Top = 39
        Width = 139
        Height = 14
        Caption = 'Farkl� �la� Say�s� Toplam� :'
        AlignToBand = False
      end
      object QRLabel16: TQRLabel
        Left = 206
        Top = 80
        Width = 109
        Height = 14
        Caption = '�la�lar�n Br�t Tutar� :'
        AlignToBand = False
      end
      object QRLabel17: TQRLabel
        Left = 200
        Top = 19
        Width = 115
        Height = 14
        Caption = 'Toplam Hasta Say�s� :'
        AlignToBand = False
      end
      object QRLabel19: TQRLabel
        Left = 164
        Top = 60
        Width = 151
        Height = 14
        Caption = 'Toplam �la� Kutusu Miktar� :'
        AlignToBand = False
      end
      object QRDBText13: TQRDBText
        Left = 321
        Top = 19
        Width = 127
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSTop
        DataField = 'HSTSAY'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object QRDBText14: TQRDBText
        Left = 321
        Top = 39
        Width = 127
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSTop
        DataField = 'FARKILAC'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object QRDBText15: TQRDBText
        Left = 321
        Top = 60
        Width = 127
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSTop
        DataField = 'TOPMIK'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object QRDBText16: TQRDBText
        Left = 321
        Top = 80
        Width = 127
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSTop
        DataField = 'TOPTUT'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object QRDBText19: TQRDBText
        Left = 321
        Top = 101
        Width = 127
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSTop
        DataField = 'ORTMIK'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object QRLabel20: TQRLabel
        Left = 156
        Top = 101
        Width = 159
        Height = 14
        Caption = 'Ortalama �la� Kutusu Miktar� :'
        AlignToBand = False
      end
      object QRLabel23: TQRLabel
        Left = 230
        Top = 2
        Width = 148
        Height = 14
        Caption = 'TOPLAMLAR VE SONU�LAR'
        AlignToBand = False
      end
      object QRDBText23: TQRDBText
        Left = 321
        Top = 117
        Width = 127
        Height = 17
        Alignment = taRightJustify
        AlignToBand = False
        DataSource = DataSTop
        DataField = 'RECSAY'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object QRLabel24: TQRLabel
        Left = 192
        Top = 117
        Width = 123
        Height = 14
        Caption = 'Toplam Re�ete Say�s� :'
        AlignToBand = False
      end
    end
  end
  object PanelTAB: TPanel
    Left = 0
    Top = 39
    Width = 619
    Height = 373
    Color = clSilver
    TabOrder = 6
    object Label3: TLabel
      Left = 0
      Top = 298
      Width = 482
      Height = 14
      Alignment = taCenter
      AutoSize = False
      Caption = 'Genel Toplam'
      Color = clBlue
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object Label1: TLabel
      Left = 0
      Top = 74
      Width = 607
      Height = 13
      Alignment = taCenter
      AutoSize = False
      Caption = 'Hasta Tablosu'
      Color = clRed
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object Label4: TLabel
      Left = 2
      Top = 203
      Width = 480
      Height = 14
      Alignment = taCenter
      AutoSize = False
      Caption = 'Tabloda ��aretli Hastan�n Ald��� �la�lar ve Detaylar�'
      Color = clNavy
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object DBGrid1: TDBGrid
      Left = 0
      Top = 87
      Width = 610
      Height = 115
      DataSource = DataSource1
      TabOrder = 3
      TitleFont.Color = clBlack
      TitleFont.Height = -11
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
    end
    object BtnHSTARA: TBitBtn
      Left = 501
      Top = 207
      Width = 95
      Height = 25
      Caption = '&Hasta Arama'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 6
      OnClick = BtnHSTARAClick
    end
    object DBGrid3: TDBGrid
      Left = 0
      Top = 312
      Width = 539
      Height = 57
      DataSource = DataSTop
      TabOrder = 5
      TitleFont.Color = clBlack
      TitleFont.Height = -11
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
    end
    object DBGrid2: TDBGrid
      Left = 0
      Top = 217
      Width = 483
      Height = 80
      DataSource = DataSource2
      TabOrder = 4
      TitleFont.Color = clBlack
      TitleFont.Height = -11
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
    end
    object BitBtn3: TBitBtn
      Left = 501
      Top = 279
      Width = 95
      Height = 25
      TabOrder = 2
      Kind = bkClose
    end
    object BtnGRAFCIZ: TBitBtn
      Left = 540
      Top = 11
      Width = 73
      Height = 24
      Caption = '&Grafi�i �iz'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = BtnGRAFCIZClick
    end
    object BtnTABYAZ: TBitBtn
      Left = 501
      Top = 243
      Width = 95
      Height = 25
      Caption = 'Tabloyu &Yazd�r'
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 7
      OnClick = BtnTABYAZClick
    end
    object RadioGrafik: TRadioGroup
      Left = 0
      Top = 1
      Width = 537
      Height = 71
      Caption = '�izilecek G&rafik'
      Columns = 2
      ItemIndex = 0
      Items.Strings = (
        'Hasta Ad� �la� Kutu Miktar� veTutar�'
        'Hasta �la�lar�n�n G�nl�k Tutar K.Miktar�'
        'Hasta �la�lar�n�n  Ayl�k Tutar ve Miktar'
        'Hasta �la�lar�n�n Y�ll�k Tutar K.Miktar�'
        '��aretli Hastan�n �la� Ad� ve Miktar veTutar�'
        '��aretli Hastan�n G�nl�k �la� Miktar� ve Tutar�'
        '��aretli Hastan�n Ayl�k �la� Miktar� ve  Tutar�'
        '��aretli Hastan�n Y�ll�k �la� Miktar� ve Tutar�')
      TabOrder = 0
    end
    object BitBtn2: TBitBtn
      Left = 541
      Top = 40
      Width = 73
      Height = 25
      HelpContext = 895
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 8
      Kind = bkHelp
    end
  end
  object BitBtn5: TBitBtn
    Left = 501
    Top = 318
    Width = 95
    Height = 25
    Font.Color = clNavy
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 7
    Kind = bkClose
  end
  object QAna: TQuery
    BeforeOpen = QAnaBeforeOpen
    AfterClose = QAnaAfterClose
    OnCalcFields = QAnaCalcFields
    DatabaseName = 'ECZ'
    SQL.Strings = (
      'SELECT'
      'ISTATIKR.HASTANO,'
      'SUM(SATIS.MIKTAR) AS TOPMIK,'
      'SUM(SATIS.MIKTAR*SATIS.FIYAT) AS TOPTUT,'
      'COUNT(DISTINCT SATISNO) AS RECSAY,'
      'COUNT(DISTINCT SATIS.ILACNO) AS FARKILAC'
      'FROM ISTATIKR,SATIS'
      'WHERE ISTATIKR.SATISNO=SATIS.SATISNO'
      'GROUP BY ISTATIKR.HASTANO'
      'ORDER BY TOPTUT DESC')
    Left = 16
    Top = 152
    object QAnaSNO: TIntegerField
      Calculated = True
      DisplayLabel = 'S.No'
      DisplayWidth = 4
      FieldName = 'SNO'
    end
    object QAnaHASTANO: TIntegerField
      Alignment = taLeftJustify
      DisplayLabel = 'Hasta Ad� Soyad�'
      DisplayWidth = 36
      FieldName = 'HASTANO'
      OnGetText = QAnaHASTANOGetText
    end
    object QAnaTOPMIK: TFloatField
      DisplayLabel = 'T.Kutu Mik'
      DisplayWidth = 5
      FieldName = 'TOPMIK'
    end
    object QAnaTOPTUT: TCurrencyField
      DisplayLabel = 'T.Br�t Tutar'
      DisplayWidth = 15
      FieldName = 'TOPTUT'
    end
    object QAnaRECSAY: TIntegerField
      DisplayLabel = 'Re�.Adedi'
      DisplayWidth = 12
      FieldName = 'RECSAY'
    end
    object QAnaFARKILAC: TIntegerField
      DisplayLabel = 'Farkl� �la� Say�s�'
      DisplayWidth = 12
      FieldName = 'FARKILAC'
    end
  end
  object DataSource1: TDataSource
    DataSet = QAna
    Left = 69
    Top = 165
  end
  object QIlacAyr: TQuery
    BeforeOpen = QIlacAyrBeforeOpen
    BeforeClose = QIlacAyrBeforeClose
    OnCalcFields = QIlacAyrCalcFields
    DatabaseName = 'ECZ'
    DataSource = DataSource1
    Params.Data = {010001000748415354414E4F000304001B0000000000}
    SQL.Strings = (
      'SELECT'
      'SATIS.ILACNO,'
      'SUM(SATIS.MIKTAR) AS TOPMIK,'
      'AVG(SATIS.MIKTAR) AS ORTMIK,'
      'SUM(SATIS.MIKTAR*SATIS.FIYAT) AS TUTAR'
      'FROM ISTATIKR,SATIS'
      'WHERE '
      'ISTATIKR.SATISNO=SATIS.SATISNO'
      'AND ISTATIKR.HASTANO=:HASTANO'
      'GROUP BY SATIS.ILACNO'
      'ORDER BY TOPMIK DESC')
    Left = 29
    Top = 233
    object QIlacAyrSNO: TIntegerField
      Calculated = True
      DisplayLabel = 'S.N.'
      DisplayWidth = 4
      FieldName = 'SNO'
    end
    object QIlacAyrILACNO: TIntegerField
      Alignment = taLeftJustify
      DisplayLabel = 'ila� Ad�'
      DisplayWidth = 36
      FieldName = 'ILACNO'
      OnGetText = QIlacAyrILACNOGetText
    end
    object QIlacAyrTOPMIK: TFloatField
      DisplayLabel = 'T.Mik'
      DisplayWidth = 6
      FieldName = 'TOPMIK'
    end
    object QIlacAyrTUTAR: TCurrencyField
      DisplayLabel = 'Br�t Tutar'
      DisplayWidth = 18
      FieldName = 'TUTAR'
    end
    object QIlacAyrORTMIK: TFloatField
      DisplayLabel = 'Ort.Mik'
      DisplayWidth = 6
      FieldName = 'ORTMIK'
      DisplayFormat = '#.#'
    end
  end
  object DataSource2: TDataSource
    DataSet = QIlacAyr
    Left = 70
    Top = 229
  end
  object QToplam: TQuery
    DatabaseName = 'ECZ'
    SQL.Strings = (
      'SELECT'
      'COUNT(DISTINCT ISTATIKR.HASTANO)  AS HSTSAY,'
      'SUM(SATIS.MIKTAR) AS TOPMIK,'
      'SUM(SATIS.MIKTAR*SATIS.FIYAT) AS TOPTUT,'
      'SUM(ISTATIKR.NET) AS NETTUT,'
      'AVG(ISTATIKR.NET) AS ORTNET,'
      'AVG(SATIS.MIKTAR) AS ORTMIK,'
      'COUNT(DISTINCT SATISNO) AS RECSAY,'
      'COUNT(DISTINCT SATIS.ILACNO) AS FARKILAC,'
      'MAX(SATIS.MIKTAR)  AS MAKSMIKTAR,'
      'MAX(SATIS.MIKTAR*SATIS.FIYAT) AS MAKSTOPTUT,'
      'MAX(ISTATIKR.NET) AS MAKSINET'
      'FROM ISTATIKR,SATIS'
      'WHERE '
      'ISTATIKR.SATISNO=SATIS.SATISNO')
    Left = 24
    Top = 275
    object QToplamHSTSAY: TIntegerField
      DisplayLabel = 'T.Hasta'
      DisplayWidth = 8
      FieldName = 'HSTSAY'
    end
    object QToplamRECSAY: TIntegerField
      DisplayLabel = 'T.Re�Adedi'
      FieldName = 'RECSAY'
    end
    object QToplamTOPMIK: TFloatField
      DisplayLabel = 'T.KutuMik.'
      DisplayWidth = 12
      FieldName = 'TOPMIK'
    end
    object QToplamTOPTUT: TCurrencyField
      DisplayLabel = 'Toplam Tutar'
      DisplayWidth = 23
      FieldName = 'TOPTUT'
    end
    object QToplamFARKILAC: TIntegerField
      DisplayLabel = 'T.Farkl� �l�.'
      DisplayWidth = 12
      FieldName = 'FARKILAC'
    end
    object QToplamORTMIK: TFloatField
      DisplayLabel = 'Ort.Kutu Mik'
      DisplayWidth = 14
      FieldName = 'ORTMIK'
      DisplayFormat = '#.#'
    end
  end
  object UrAd: TTable
    DatabaseName = 'ECZ'
    TableName = 'Urun.DB'
    Left = 17
    Top = 187
    object UrAdILACNO: TAutoIncField
      Alignment = taLeftJustify
      FieldName = 'ILACNO'
    end
    object UrAdILACKOD: TStringField
      FieldName = 'ILACKOD'
      Size = 13
    end
    object UrAdILACAD: TStringField
      FieldName = 'ILACAD'
      Size = 36
    end
  end
  object hstAd: TTable
    DatabaseName = 'ECZ'
    TableName = 'HASTA.DB'
    Left = 137
    Top = 275
    object hstAdHASTANO: TAutoIncField
      FieldName = 'HASTANO'
    end
    object hstAdHASTADI: TStringField
      FieldName = 'HASTADI'
      Size = 18
    end
    object hstAdHASTASOYAD: TStringField
      FieldName = 'HASTASOYAD'
      Size = 18
    end
  end
  object DataSTop: TDataSource
    DataSet = QToplam
    Left = 64
    Top = 271
  end
  object QGunluk: TQuery
    DatabaseName = 'ECZ'
    SQL.Strings = (
      'SELECT'
      'ISTATIKR.ALTARIH,'
      'SUM(SATIS.MIKTAR) AS TOPMIK,'
      'SUM(SATIS.MIKTAR*SATIS.FIYAT) AS TOPTUT'
      'FROM ISTATIKR,SATIS'
      'WHERE '
      '(SATIS.SATISNO=ISTATIKR.SATISNO)'
      'GROUP BY ISTATIKR.ALTARIH'
      'ORDER BY TOPMIK DESC')
    Left = 461
    Top = 9
    object QGunlukALTARIH: TDateField
      FieldName = 'ALTARIH'
    end
    object QGunlukTOPMIK: TFloatField
      FieldName = 'TOPMIK'
    end
    object QGunlukTOPTUT: TCurrencyField
      FieldName = 'TOPTUT'
    end
  end
  object QIstaRec: TQuery
    DatabaseName = 'ECZ'
    Params.Data = {
      010002000662617354726800090400C11F0B00000106736F6E54726800090400
      9B220B000001}
    SQL.Strings = (
      'SELECT'
      'RECETE.HASTANO,'
      'RECETE.DRKOD,'
      'RECETE.SATISNO,'
      'RECETE.KURUMKOD,'
      'RECETE.ALTARIH,'
      'EXTRACT(DAY FROM RECETE.ALTARIH) AS GUN,'
      'EXTRACT(MONTH FROM RECETE.ALTARIH) AS AY,'
      'EXTRACT(YEAR FROM RECETE.ALTARIH) AS YIL,'
      'RECETE.NET'
      'FROM RECETE'
      'WHERE '
      '(RECETE.ALTARIH>=:basTrh) AND'
      '(RECETE.ALTARIH<=:sonTrh)'
      'ORDER BY RECETE.ALTARIH')
    Left = 152
    Top = 8
    object QIstaRecHASTANO: TIntegerField
      FieldName = 'HASTANO'
    end
    object QIstaRecDRKOD: TIntegerField
      FieldName = 'DRKOD'
    end
    object QIstaRecSATISNO: TFloatField
      FieldName = 'SATISNO'
    end
    object QIstaRecKURUMKOD: TStringField
      FieldName = 'KURUMKOD'
      Size = 11
    end
    object QIstaRecALTARIH: TDateField
      FieldName = 'ALTARIH'
    end
    object QIstaRecGUN: TFloatField
      FieldName = 'GUN'
    end
    object QIstaRecAY: TFloatField
      FieldName = 'AY'
    end
    object QIstaRecYIL: TFloatField
      FieldName = 'YIL'
    end
  end
  object BatchMove1: TBatchMove
    Destination = istRecTab
    Mode = batCopy
    Source = QIstaRec
    Left = 184
    Top = 8
  end
  object istRecTab: TTable
    DatabaseName = 'ECZ'
    TableName = 'istatikR.db'
    Left = 224
    Top = 8
  end
  object QAylik: TQuery
    DatabaseName = 'ECZ'
    SQL.Strings = (
      'SELECT'
      'ISTATIKR.YIL,ISTATIKR.AY,'
      'SUM(SATIS.MIKTAR) AS TOPMIK,'
      'SUM(SATIS.MIKTAR*FIYAT) AS TOPTUT'
      'FROM ISTATIKR,SATIS'
      'WHERE '
      '(SATIS.SATISNO=ISTATIKR.SATISNO)'
      'GROUP BY ISTATIKR.YIL,ISTATIKR.AY'
      'ORDER BY TOPTUT DESC')
    Left = 357
    Top = 49
    object QAylikYIL: TFloatField
      FieldName = 'YIL'
    end
    object QAylikAY: TFloatField
      FieldName = 'AY'
    end
    object QAylikTOPMIK: TFloatField
      FieldName = 'TOPMIK'
    end
    object QAylikTOPTUT: TCurrencyField
      FieldName = 'TOPTUT'
    end
  end
  object QYillik: TQuery
    DatabaseName = 'ECZ'
    SQL.Strings = (
      'SELECT'
      'ISTATIKR.YIL,'
      'SUM(SATIS.MIKTAR) AS TOPMIK,'
      'SUM(SATIS.MIKTAR*FIYAT) AS TOPTUT'
      'FROM ISTATIKR,SATIS'
      'WHERE '
      '(SATIS.SATISNO=ISTATIKR.SATISNO)'
      'GROUP BY ISTATIKR.YIL'
      'ORDER BY TOPTUT DESC')
    Left = 381
    Top = 17
    object QYillikYIL: TFloatField
      FieldName = 'YIL'
    end
    object QYillikTOPMIK: TFloatField
      FieldName = 'TOPMIK'
    end
    object QYillikTOPTUT: TCurrencyField
      FieldName = 'TOPTUT'
    end
  end
  object QhstIMikAylik: TQuery
    DatabaseName = 'ECZ'
    DataSource = DataSource1
    Params.Data = {010001000748415354414E4F00030400000000000100}
    SQL.Strings = (
      'SELECT'
      'ISTATIKR.YIL,ISTATIKR.AY,'
      'SUM(SATIS.MIKTAR) AS TOPMIK,'
      'SUM(SATIS.MIKTAR*SATIS.FIYAT) AS TUTAR'
      'FROM ISTATIKR,SATIS'
      'WHERE '
      'ISTATIKR.SATISNO=SATIS.SATISNO'
      'AND ISTATIKR.HASTANO=:HASTANO'
      'GROUP BY ISTATIKR.YIL,ISTATIKR.AY'
      'ORDER BY TOPMIK DESC')
    Left = 501
    Top = 41
    object QhstIMikAylikYIL: TFloatField
      FieldName = 'YIL'
    end
    object QhstIMikAylikAY: TFloatField
      FieldName = 'AY'
    end
    object QhstIMikAylikTOPMIK: TFloatField
      FieldName = 'TOPMIK'
      DisplayFormat = '#.# A'
    end
    object QhstIMikAylikTUTAR: TCurrencyField
      FieldName = 'TUTAR'
    end
  end
  object PrintDialog1: TPrintDialog
    Left = 525
    Top = 65508
  end
  object QhstIMikYillik: TQuery
    DatabaseName = 'ECZ'
    DataSource = DataSource1
    Params.Data = {010001000748415354414E4F00030400000000000100}
    SQL.Strings = (
      'SELECT'
      'ISTATIKR.YIL,'
      'SUM(SATIS.MIKTAR) AS TOPMIK,'
      'SUM(SATIS.MIKTAR*SATIS.FIYAT) AS TUTAR'
      'FROM ISTATIKR,SATIS'
      'WHERE '
      'ISTATIKR.SATISNO=SATIS.SATISNO'
      'AND ISTATIKR.HASTANO=:HASTANO'
      'GROUP BY ISTATIKR.YIL'
      'ORDER BY TOPMIK DESC')
    Left = 445
    Top = 73
    object QhstIMikYillikYIL: TFloatField
      FieldName = 'YIL'
    end
    object QhstIMikYillikTOPMIK: TFloatField
      FieldName = 'TOPMIK'
    end
    object QhstIMikYillikTUTAR: TCurrencyField
      FieldName = 'TUTAR'
    end
  end
  object DS_QYillik: TDataSource
    DataSet = QYillik
    Left = 352
    Top = 16
  end
  object DS_QAylik: TDataSource
    DataSet = QAylik
    Left = 384
    Top = 48
  end
  object DataSource5: TDataSource
    DataSet = QGunluk
    Left = 496
    Top = 8
  end
  object DS_QhstIMikAylik: TDataSource
    DataSet = QhstIMikAylik
    Left = 544
    Top = 40
  end
  object DataSource7: TDataSource
    DataSet = QhstIMikYillik
    Left = 472
    Top = 72
  end
  object QuickReport1: TQuickReport
    DataSource = DataSource1
    ColumnMarginInches = 0
    ColumnMarginMM = 0
    Columns = 1
    DisplayPrintDialog = True
    LeftMarginInches = 0
    LeftMarginMM = 0
    Orientation = poPortrait
    PageFrame.DrawTop = False
    PageFrame.DrawBottom = False
    PageFrame.DrawLeft = False
    PageFrame.DrawRight = False
    PaperLength = 0
    PaperSize = qrpDefault
    PaperWidth = 0
    ReportTitle = 'Hasta Tablosu'
    RestartData = True
    SQLCompatible = False
    TitleBeforeHeader = False
    Left = 240
    Top = 96
  end
  object FontDialog1: TFontDialog
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'Courier New'
    Font.Style = []
    Device = fdPrinter
    MinFontSize = 0
    MaxFontSize = 0
    Left = 453
    Top = 208
  end
  object QhstIMikGunluk: TQuery
    DatabaseName = 'ECZ'
    DataSource = DataSource1
    Params.Data = {010001000748415354414E4F00030400000000000100}
    SQL.Strings = (
      'SELECT'
      'ISTATIKR.ALTARIH,'
      'SUM(SATIS.MIKTAR) AS TOPMIK,'
      'SUM(SATIS.MIKTAR*SATIS.FIYAT) AS TUTAR'
      'FROM ISTATIKR,SATIS'
      'WHERE '
      'ISTATIKR.SATISNO=SATIS.SATISNO'
      'AND ISTATIKR.HASTANO=:HASTANO'
      'GROUP BY ISTATIKR.ALTARIH'
      'ORDER BY TOPMIK DESC')
    Left = 549
    Top = 57
    object QhstIMikGunlukALTARIH: TDateField
      FieldName = 'ALTARIH'
    end
    object QhstIMikGunlukTOPMIK: TFloatField
      FieldName = 'TOPMIK'
    end
    object QhstIMikGunlukTUTAR: TCurrencyField
      FieldName = 'TUTAR'
    end
  end
  object QRDetailLink1: TQRDetailLink
    DataSource = DataSource2
    DetailBand = QRSubDetail
    FooterBand = QRGroupFooter
    HeaderBand = QRGroupHeader
    Master = QuickReport1
    PrintBefore = False
    Left = 270
    Top = 104
  end
end